10 POKE45,0:POKE46,63:CLR:RUN60
60 CO=55296
61 PRINT""
70 G=13*4096:POKEG+32,2:POKEG+33,11
90 PRINTCHR$(142);
100 GOSUB6300:FORI=1TO5
110 A=TI+60:PRINT"[145]* LABYRINTH *
120 Z[178][187](TI):[139]A[177]TI[137]120
130 A[178]TI[170]60:[153]"ON*           *
140 Z=RND(TI):IFA>TIGOTO140
150 NEXTI:DIMA(19,12),B(19,12)
160 A$(1)="[206]ORTH":A$(2)="[197]AST":A$(3)="[211]OUTH":A$(4)="[215]EST"
170 W$="[177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178]"
180 PRINTCHR$(14);:PRINT"[147][212]HIS GAME LETS YOU EXPLORE A[160]3-[196][201][205][197][206][211][201][207][206][208][210][207][202][197][195][212][201][207][206][160]";
190 PRINT"OF A[160][204][193][194][217][210][201][206][212][200].":PRINT"[212]HE [208][197][212] WILL FIRST CONSTRUCT IT AND
200 [153]"SHOW IT TO YOU.  (null)OU CAN THEN WALK
205 PRINT"THROUGH IT!
210 [141]2370
220 [153]"(null)OU CAN HAVE A LABYRINTH WITH A MAXIMUM SIZE OF 19 PEEK(null)(null)LEN(null)(null) LEFT$(null)(null)RIGHT$(null)(null)(null)(null)ATN";
230 [153]"(null)(null)(null)CLOSEANDCLOSE11   PEEK(null)(null)LEN(null)(null)CLOSE(null)VAL(null)(null)RIGHT$LENATN(null)(null)(null).CLOSE
240 REM CLEAR MAZE ARRAY
250 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
260 M1[178]0:[129]I[178]0[164]19:[129]J[178]0[164]10:A(I,J)[178]0:B(I,J)[178]0:[130]J,I
270 [133]"LEFT$OW WIDE DO YOU WANT IT     CMDCMDCMDCMDCMDSINCMDCMDCMD";H
280 [139]H[178]0[176]H[177]19[167][153]"ONON";:[137]270
290 [133]"ONLEFT$OW DEEP                     CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDSINCMDCMDCMD";V
300 [139]V[178]0[176]V[177]11[137]290
310 [153]"ON(null)OW CREATING A"H"(null)"V"LABYRINTH
320 A=H*V+1
330 Q=0:Z=0:X=INT(H*RND(H))+1
340 REM SAVE MAZE ENTRY POINT
350 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
360 AA[178]X
370 A(X,0)[178]1:C[178]2
380 R[178]X:S[178]1:[137]470
390 [143] START OF MAZE BUILD ROUTINE
400 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
410 IFR<>HGOTO450
420 IFS<>VGOTO440
430 R=1:S=1:GOTO460
440 R=1:S=S+1:GOTO460
450 R=R+1
460 IFA(R,S-1)=0GOTO410
470 IFR-1=0GOTO910
480 IFA(R-1,S-1)GOTO910
490 IFS-1=0GOTO690
500 IFA(R,S-2)GOTO690
510 IFR=HGOTO570
520 IFA(R+1,S-1)GOTO570
530 REM LEFT/DOWN/RIGHT
540 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
550 X[178][181](3[172][187](1))[170]1
560 [145]X[137]1320,1380,1440
570 [139]S[179][177]V[137]600
580 [139]Z[178]1[137]670
590 Q[178]1:[137]630
600 [139]A(R,S)[137]670
610 [143] LEFT/DOWN/UP
620 [143]"FREFREFREFREFREFREFREFREFREFREFREFRE
630 X=INT(3*RND(1))+1
640 ONXGOTO1320,1380,1530
650 REM LEFT/DOWN
660 REM"[184][184][184][184][184][184][184][184][184]
670 X[178][181](2[172][187](1))[170]1
680 [137]640
690 [139]R[178]H[137]830
700 [139]A(R[170]1,S[171]1)[137]830
710 [139]S[179][177]V[137]740
720 [139]Z[178]1[137]810
730 Q[178]1:[137]770
740 [139]A(R,S)[137]810
750 [143] LEFT/RIGHT/UP
760 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFRE
770 X=INT(3*RND(1))+1
780 ONXGOTO1320,1440,1530
790 REM LEFT/RIGHT
800 REM"[184][184][184][184][184][184][184][184][184][184]
810 X[178][181](2[172][187](1))[170]1
820 [137]780
830 [139]S[179][177]V[137]860
840 [139]Z[178]1[137]1320
850 Q[178]1:[137]890
860 [139]A(R,S)[137]1320
870 [143] LEFT/UP
880 [143]"FREFREFREFREFREFREFRE
890 X=INT(2*RND(1))+1
900 ONXGOTO1320,1530
910 IFS-1=0GOTO1150
920 IFA(R,S-2)GOTO1150
930 IFR=HGOTO1070
940 IFA(R+1,S-1)GOTO1070
950 IFS<>VGOTO980
960 IFZ=1GOTO1050
970 Q=1:GOTO1010
980 IFA(R,S)GOTO1050
990 REM DOWN/RIGHT/UP
1000 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184]
1010 X[178][181](3[172][187](1))[170]1
1020 [145]X[137]1380,1440,1530
1030 [143] DOWN/RIGHT
1040 [143]"FREFREFREFREFREFREFREFREFREFRE
1050 X=INT(2*RND(1))+1
1060 GOTO1020
1070 IFS<>VGOTO1100
1080 IFZ=1GOTO1380
1090 Q=1:GOTO1130
1100 IFA(R,S)GOTO1380
1110 REM DOWN/UP
1120 REM"[184][184][184][184][184][184][184]
1130 X[178][181](2[172][187](1))[170]1
1140 [145]X[137]1380,1530
1150 [139]R[178]H[137]1250
1160 [139]A(R[170]1,S[171]1)[137]1250
1170 [139]S[179][177]V[137]1200
1180 [139]Z[178]1[137]1440
1190 Q[178]1:[137]1230
1200 [139]A(R,S)[137]1440
1210 [143] RIGHT/UP
1220 [143]"FREFREFREFREFREFREFREFRE
1230 X=INT(2*RND(1))+1
1240 ONXGOTO1440,1530
1250 IFS<>VGOTO1280
1260 IFZ=1GOTO410
1270 Q=1:GOTO1290
1280 IFA(R,S)GOTO410
1290 GOTO1530
1300 REM LEFT
1310 REM"[184][184][184][184]
1320 A(R[171]1,S[171]1)[178]C
1330 C[178]C[170]1:B(R[171]1,S[171]1)[178]2:R[178]R[171]1
1340 [139]C[178]A[137]1670
1350 Q[178]0:[137]470
1360 [143] DOWN
1370 [143]"FREFREFREFRE
1380 A(R,S-2)=C
1390 C=C+1
1400 B(R,S-2)=1:S=S-1:IFC=AGOTO1670
1410 Q=0:GOTO470
1420 REM RIGHT
1430 REM"[184][184][184][184][184]
1440 A(R[170]1,S[171]1)[178]C
1450 C[178]C[170]1:[139]B(R,S[171]1)[178]0[137]1470
1460 B(R,S[171]1)[178]3:[137]1480
1470 B(R,S[171]1)[178]2
1480 R[178]R[170]1
1490 [139]C[178]A[137]1670
1500 [137]910
1510 [143] UP
1520 [143]"FREFRE
1530 IFQ=1GOTO1610
1540 A(R,S)=C:C=C+1:IFB(R,S-1)=0GOTO1560
1550 B(R,S-1)=3:GOTO1570
1560 B(R,S-1)=1
1570 S=S+1:IFC=AGOTO1670
1580 GOTO470
1590 REM EXIT AT TOP OF SCREEN
1600 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
1610 Z[178]1
1620 [139]B(R,S[171]1)[178]0[137]1640
1630 B(R,S[171]1)[178]3:Q[178]0:[137]410
1640 B(R,S[171]1)[178]1:Q[178]0:R[178]1:S[178]1:[137]460
1650 [143] MAKE EXIT IF NOT THERE
1660 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
1670 IFZ<>1THENX=INT(H*RND(1))+1:B(X,V-1)=B(X,V-1)+1
1680 REM END OF MAZE BUILD
1690 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
1700 [133]"STR$O YOU WANT TO SEE ITSINCMDCMDCMD";Z$:[139]Z$[179][177]"Y"[167]X[178]TI:[137]2090
1710 [153]"ON(null)OU'VE GOT"H[170]V"CMD SECONDS TO LOOK AT IT!":[141]2700
1720 [141]1730:[151]4[172]256[170]498[171]H[170]40[172]V[170]2[172]AA,30:[151]CO[170]498[171]H[170]40[172]V[170]2[172]AA,2:[137]2080
1730 M1[178]1:[153]"LOAD";
1740 Z$[178]"":[139]H[179][177]19[167][129]I[178]1[164]19[171]H:Z$[178]Z$[170]"":[130]
1750 [139]V[179][177]11[167][129]I[178]1[164]11[171]V:[153]"";:[130]
1760 [143] 2D DISPLAY ROUTINE
1770 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
1780 FORJ=VTO1STEP-1
1790 PRINTZ$;:FORI=1TOH
1800 IFB(I,J-1)=0GOTO1860
1810 IFB(I,J-1)=2GOTO1860
1820 REM PRINT TOP OF CELLS
1830 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
1840 [153]"(null) ";
1850 [137]1870
1860 [153]"(null)TAN";
1870 [130]I
1880 [153]"(null)"
1890 [153]Z$;:[153]"(null)";
1900 [129]I[178]1[164]H
1910 [139]B(I,J[171]1)[179]2[137]1960
1920 [143] PRINT SIDES OF CELLS
1930 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
1940 PRINT"  ";
1950 GOTO1970
1960 PRINT" [221]";
1970 NEXTI
1980 PRINT
1990 NEXTJ
2000 PRINTZ$;:FORI=1TOH
2010 IFI=AAGOTO2050
2020 REM PRINT BOTTOM OF MAZE
2030 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
2040 [153]"(null)TAN";:[137]2060
2050 [153]"(null) ";
2060 [130]I
2070 [153]"(null)":[142]
2080 X[178]TI[170](H[170]V)[172]60
2090 [143] TRANSLATE ROUTINE
2100 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
2110 REM FORI=1TOH:FORJ=0TOV-1
2120 REM A(I,J)=(3-B(I,J))*2
2130 REM NEXTJ,I
2140 W=AA
2150 REM COMPLETE CELL INFORMATION
2160 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
2170 [129]J[178]0[164]V[171]1
2180 [129]I[178]1[164]H
2190 [139]J[137]2220
2200 [139]I[178]W[167]A(I,J)[178](3[171]B(I,J))[172]2:[137]2240
2210 M[178]1:[137]2230
2220 M[178](A(I,J[171]1)[175]2)[173]2
2230 A(I,J)[178](3[171]B(I,J))[172]2[170]M[172]8
2240 [139]I[178]1[167]M[178]1:[137]2260
2250 M[178](A(I[171]1,J)[175]4)[173]4
2260 A(I,J)[178]A(I,J)[170]M
2270 [130]I
2280 [130]J
2290 [143] SET UP START PARAMS
2300 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
2310 IFX>TIGOTO2310
2320 PRINT"[147]";:GOSUB2370
2330 X=W:Y=0:Z=1:EL=1:ER=1
2340 GOTO3450
2350 REM INSTRUCTIONS
2360 REM"[184][184][184][184][184][184][184][184][184][184][184][184]
2370 [153]"(null)OU CAN GIVE THE FOLLOWING INSTRUCTIONS:";
2380 [153]"ASCWAITMOVE ASC(null)(null)(null)ATN(null)STR$(null) ONE BLOCK;"
2390 [153]"(null)WAITTURNCLOSE(null)VALASC(null)CLOSE90 DEGREES;"
2400 [153]"(null)WAITTURNCLOSE(null)RIGHT$CHR$LEFT$(null)CLOSE90 DEGREES;"
2410 [153]"LEFT$WAITLEFT$VAL(null)(null)!"
2420 [141]2700:[142]
2430 [143] HELP ROUTINE
2440 [143]"FREFREFREFREFREFREFREFREFREFREFREFRE
2450 PRINTCHR$(14);:GOSUB1730:PRINT"[217]OU ARE HERE [166], FACING "A$(Z)
2460 POKE4*256+498-H+40*V+2*X-80*Y,102
2465 POKECO+498-H+40*V+2*X-80*Y,5
2470 REM GET INSTRUCTIONS
2480 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
2490 [139]Y[177]V[137]6180
2500 [153]"WHAT NOW (E=EXIT)?";
2505 [143]  GOSUB10000
2510 [161]Z$:[139]Z$[179][177]""[137]2510
2520 [161]Z$:[139]Z$[178]""[137]2520
2522 [139]Z$[179][177]"L"[175]Z$[179][177]"R"[175]Z$[179][177]"F"[175]Z$[179][177]"H"[175]Z$[179][177]"E"[167]2510
2530 [153]"         ";
2540 [139]Z$[178]"L"[137]2610
2550 [139]Z$[178]"R"[137]2650
2560 [139]Z$[178]"F"[137]3380
2570 [139]Z$[178]"H"[137]2450
2575 [139] Z$[178]"E"[167][128]
2580 [137]2520
2590 [143] LEFT TURN
2600 [143]"FREFREFREFREFREFREFREFREFRE
2610 Z=Z-1:IFZ<1THENZ=Z+4
2620 GOTO3450
2630 REM RIGHT TURN
2640 REM"[184][184][184][184][184][184][184][184][184][184]
2650 Z[178]Z[170]1:[139]Z[177]4[167]Z[178]Z[171]4
2660 [137]3450
2670 [142]
2680 [143] PAUSE
2690 [143]"FREFREFREFREFRE
2700 I=TI+200
2710 IFI>TIGOTO2710
2720 RETURN
2730 REM ROTATE LH CELL AND LOOK
2740 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
2750 [139]Z[178]1[167]A1[178]A[171]1:B1[178]B[171]1:[137]2800
2760 [139]Z[178]2[175]B[179]V[167]A1[178]A:B1[178]B:[137]2800
2770 [139]Z[178]3[167]A1[178]A[170]1:B1[178]B[171]1:[137]2800
2780 [139]Z[178]4[175]B[177]1[167]A1[178]A:B1[178]B[171]2:[137]2800
2790 EL[178]1:[142]
2800 F[178]A(A1,B1):[139]Z[178]1[137]2820
2810 [129]I[178]2[164]Z:F[178](F[175]14)[173]2[170](F[175]1)[172]8:[130]
2820 EL[178](F[175]2)[173]2:[142]
2830 [143] ROTATE RH CELL AND LOOK
2840 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
2850 IFZ=1THENA1=A+1:B1=B-1:GOTO2900
2860 IFZ=2ANDB>1THENA1=A:B1=B-2:GOTO2900
2870 IFZ=3THENA1=A-1:B1=B-1:GOTO2900
2880 IFZ=4ANDB<VTHENA1=A:B1=B:GOTO2900
2890 ER=1:RETURN
2900 F=A(A1,B1):IFZ=1GOTO2920
2910 FORI=2TOZ:F=(FAND14)/2+(FAND1)*8:NEXT
2920 ER=(FAND2)/2:RETURN
2930 REM ROTATE AND LOOK ROUTINE
2940 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
2950 [139]B[178]0[137]3050
2960 [139]B[177]V[167]E[178]3:[142]
2970 F[178]A(A,B[171]1):[139]Z[178]1[137]2990
2980 [129]I[178]2[164]Z:F[178](F[175]14)[173]2[170](F[175]1)[172]8:[130]
2990 C[178]F[175]1:D[178](F[175]4)[173]4:E[178](F[175]2)[173]2
3000 [139]C[178]0[167][141]2730
3010 [139]D[178]0[167][141]2830
3020 [142]
3030 [143] OUTSIDE MAZE
3040 [143]"FREFREFREFREFREFREFREFREFREFREFREFRE
3050 C=0:D=0:E=-1
3060 IFZ<>1GOTO3120
3070 E=1
3080 IFA=WTHENE=0
3090 RETURN
3100 REM NO MAN'S LAND
3110 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184]
3120 [139]Z[178]3[167]E[178]2:[142]
3130 [139]Z[178]2[175]A[178]H[167]E[178]2:[142]
3140 [139]Z[178]4[175]A[178]1[167]E[178]2:[142]
3150 [142]
3160 [143] INDEX TO NEXT CELL
3170 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
3180 IFE>0GOTO3260
3190 IFZ=1THENB=B+1:RETURN
3200 IFZ=2THENA=A+1:RETURN
3210 IFZ=3THENB=B-1:RETURN
3220 IFZ=4THENA=A-1:RETURN
3230 REM MESSAGE ROUTINE
3240 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
3250 [153]"";:[142]
3260 [139]E[178]0[137]3310
3270 [141]3250:[153]"YOU'LL HIT THE WALL"
3280 [141]3250:[139]C[178]0[175]D[178]0[175]B[167][153]"TURN":[137]3340
3290 [139]C[178]1[176](B[178]0[175]A[179]W)[167][153]"TURN RIGHT":[137]3340
3300 [153]"TURN LEFT":[137]3340
3310 [141]6300:[153]"ONON*    NO     *
3320 PRINT"*   MAN'S   *
3330 [153]"*   LAND    *
3340 S=1
3350 RETURN
3360 REM FORWARD ROUTINE
3370 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
3380 A[178]X:B[178]Y
3390 [141]2950
3400 [141]3180
3410 X[178]A:Y[178]B
3420 [139]E[177]0[137]2490
3430 [143] 3D DISPLAY ROUTINE
3440 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
3450 A=X:B=Y
3460 GOSUB2950
3470 REM 5 DEPTHS
3480 REM"[184][184][184][184][184][184][184][184]
3490 [129]T[178]1[164]5
3500 [141]3650
3510 [143] CHECK FOR NEXT DEPTH
3520 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
3530 IFETHENT=5:GOTO3570
3540 GOSUB3180
3550 GOSUB2950
3560 IFE>1THENT=5:GOTO3570
3570 NEXTT
3580 IFX=WANDY=0ANDZ=1THENGOSUB6330:PRINT"[145]*  WAY  IN  *":GOTO3620
3590 IFX<>WANDY=0ANDZ=1THENGOSUB3250:PRINT"[145][145][145][145]EXTERNAL WALL":GOTO3610
3600 GOTO3620
3610 GOSUB3250:PRINT"[145][145]YOU'RE OUTSIDE!
3620 [137]2490
3630 [143] JUMP TO DISPLAY DEPTH
3640 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
3650 ONTGOTO3660,4110,4740,5350,5900
3660 REM DISPLAY DEPTH 1
3670 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
3680 [153][199](142);:[153]"LOAD";
3690 [139]E[177]2[167][142]
3700 [139]E[179]0[176]E[177]1[167][141]3310:[142]
3710 [129]I[178]1[164]21:[139]C[178]1[167][153]"THEN";:[137]3770
3720 [139]Y[178]0[167][153]""[202](W$,(I[175]1)[170]1,8);:[137]3770
3730 [139]EL[178]1[167][153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";:[137]3770
3740 [139]I[178]2[167][153]"TOTOTOTOTOTOTOSPC(";:[137]3770
3750 [139]I[179]18[167][153]"SPC(";:[137]3770
3760 [153]"       WAITSPC(";
3770 [139]E[178]0[167][153]"";:[137]3800
3780 [139]Y[178]0[167][153][202](W$,(I[175]1)[170]1,22);:[137]3800
3790 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
3800 [139]D[178]1[167][153]"FN":[137]3860
3810 [139]Y[178]0[167][153][202](W$,(I[175]1)[170]1,8):[137]3860
3820 [139]ER[178]1[167][153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(":[137]3860
3830 [139]I[178]2[167][153]"SPC(TOTOTOTOTOTOTO":[137]3860
3840 [139]I[179]18[167][153]"SPC(":[137]3860
3850 [153]"SPC(       "
3860 [130]
3870 [129]I[178]1[164]3:[139]C[178]1[176](X[178]W[175]Y[178]0)[137]3930
3880 [145]I[137]3890,3910,3920
3890 [139]EL[178]0[167][153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)";:[137]3970
3900 [153]"       (null)";:[137]3970
3910 [153]"      (null) ";:[137]3980
3920 [153]"     (null)  ";:[137]3980
3930 [145]I[137]3940,3950,3960
3940 [153]"STEP";:[137]3970
3950 [153]"STEP ";:[137]3980
3960 [153]"STEP  ";:[137]3980
3970 [139]E[178]0[167][153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";:[137]3990
3980 [153]"                      ";
3990 [139]D[178]1[176](X[178]W[175]Y[178]0)[137]4050
4000 [145]I[137]4010,4030,4040
4010 [139]ER[178]0[167][153]"(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(":[137]4090
4020 [153]"(null)       ":[137]4090
4030 [153]" (null)      ":[137]4090
4040 [153]"  (null)     ":[137]4090
4050 [145]I[137]4060,4070,4080
4060 [153]"(null)":[137]4090
4070 [153]" (null)":[137]4090
4080 [153]"  (null)"
4090 [130]I
4100 [142]
4110 [143] DISPLAY DEPTH 2
4120 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
4130 PRINT"";:Z$=""
4140 FORI=1TO2:PRINTZ$;:IFC=0GOTO4180
4150 ONIGOTO4160,4170
4160 PRINT"[205]";:GOTO4220
4170 PRINT"[205]";:GOTO4220
4180 ONIGOTO4190,4200
4190 PRINT"";:GOTO4220
4200 IFEL=1THENPRINT"[164][164][164][164]";:GOTO4220
4210 PRINT"[164]";
4220 IFE=0ORI=1THENPRINT"";:GOTO4240
4230 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
4240 IFD=0GOTO4280
4250 ONIGOTO4260,4270
4260 PRINT"[206]":GOTO4320
4270 PRINT"[206]":GOTO4320
4280 ONIGOTO4290,4300
4290 PRINT:GOTO4320
4300 IFER=1THENPRINT"[164][164][164][164]":GOTO4320
4310 PRINT"[164]"
4320 NEXT
4330 FORI=1TO15:PRINTZ$;:IFC=1THENPRINT"[167]";:GOTO4380
4340 IFEL=1THENPRINT"[166][166][166][166][146]";:GOTO4380
4350 IFI=3THENPRINT"[164][164][164][166][146]";:GOTO4380
4360 IFI>12THENPRINT"   [166][146]";:GOTO4380
4370 PRINT"   [166][146]";
4380 IFE=0THENPRINT"";:GOTO4400
4390 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][146]";
4400 IFD=1THENPRINT"[165]":GOTO4450
4410 IFER=1THENPRINT"[166][166][166][166]":GOTO4450
4420 IFI=3THENPRINT"[166][146][164][164][164]":GOTO4450
4430 IFI>12THENPRINT"[166]   ":GOTO4450
4440 PRINT"[166]"
4450 NEXT
4460 FORI=1TO4:PRINTZ$;:IFC=1GOTO4530
4470 ONIGOTO4480,4500,4510,4520
4480 IFEL=0THENPRINT"[163][163][163][206]";:GOTO4580
4490 PRINT"   [206]";:GOTO4580
4500 PRINT"  [206] ";:GOTO4590
4510 PRINT" [206]  ";:GOTO4590
4520 PRINT"[206]   ";:GOTO4590
4530 ONIGOTO4540,4550,4560,4570
4540 PRINT"[169]";:GOTO4580
4550 PRINT"[169] ";:GOTO4590
4560 PRINT"[169]  ";:GOTO4590
4570 PRINT"[169]   ";:GOTO4590
4580 IFE=0THENPRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:GOTO4600
4590 PRINT"              ";
4600 IFD=1GOTO4670
4610 ONIGOTO4620,4640,4650,4660
4620 IFER=0THENPRINT"[205][163][163][163]":GOTO4720
4630 PRINT"[205]   ":GOTO4720
4640 PRINT" [205]  ":GOTO4720
4650 PRINT"  [205] ":GOTO4720
4660 PRINT"   [205]":GOTO4720
4670 ONIGOTO4680,4690,4700,4710
4680 PRINT"[223]":GOTO4720
4690 PRINT" [223]":GOTO4720
4700 PRINT"  [223]":GOTO4720
4710 PRINT"   [223]"
4720 NEXTI
4730 RETURN
4740 REM DISPLAY DEPTH 3
4750 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
4760 [153]"";:Z$[178]Z$[170]""
4770 [129]I[178]1[164]3:[153]Z$;:[139]C[178]0[137]4820
4780 [145]I[137]4790,4800,4810
4790 [153]"(null)";:[137]4860
4800 [153]"(null)";:[137]4860
4810 [153]"(null)";:[137]4860
4820 [145]I[137]4830,4830,4840
4830 [153]"";:[137]4860
4840 [139]EL[178]1[167][153]"TOTOTO";:[137]4860
4850 [153]"TO";
4860 [139]E[178]0[176]I[179][178]2[167][153]"";:[137]4880
4870 [153]"TOTOTOTOTOTOTOTO";
4880 [139]D[178]0[137]4930
4890 [145]I[137]4900,4910,4920
4900 [153]"(null)":[137]4970
4910 [153]"(null)":[137]4970
4920 [153]"(null)":[137]4970
4930 [145]I[137]4940,4940,4950
4940 [153]:[137]4970
4950 [139]ER[178]1[167][153]"TOTOTO":[137]4970
4960 [153]"TO"
4970 [130]
4980 [129]I[178]1[164]9:[153]Z$;:[139]C[178]1[167][153]"THEN";:[137]5030
4990 [139]EL[178]1[167][153]"SPC(SPC(SPC(";:[137]5030
5000 [139]I[178]2[167][153]"TOTOSPC(";:[137]5030
5010 [139]I[177]7[167][153]"  WAITSPC(";:[137]5030
5020 [153]"  SPC(";
5030 [139]E[178]0[167][153]"";:[137]5050
5040 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
5050 [139]D[178]1[167][153]"FN":[137]5100
5060 [139]ER[178]1[167][153]"SPC(SPC(SPC(":[137]5100
5070 [139]I[178]2[167][153]"SPC(TOTO":[137]5100
5080 [139]I[177]7[167][153]"SPC(  WAIT":[137]5100
5090 [153]"SPC("
5100 [130]
5110 [129]I[178]1[164]3:[153]Z$;:[139]C[178]1[137]5170
5120 [145]I[137]5130,5150,5160
5130 [139]EL[178]0[167][153]"TAB(TAB((null)";:[137]5210
5140 [153]"  (null)";:[137]5210
5150 [153]" (null) ";:[137]5220
5160 [153]"(null)  ";:[137]5220
5170 [145]I[137]5180,5190,5200
5180 [153]"STEP";:[137]5210
5190 [153]"STEP ";:[137]5220
5200 [153]"STEP  ";:[137]5220
5210 [139]E[178]0[167][153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";:[137]5230
5220 [153]"        ";
5230 [139]D[178]1[137]5290
5240 [145]I[137]5250,5270,5280
5250 [139]ER[178]0[167][153]"(null)TAB(TAB(":[137]5330
5260 [153]"(null)  ":[137]5330
5270 [153]" (null) ":[137]5330
5280 [153]"  (null)":[137]5330
5290 [145]I[137]5300,5310,5320
5300 [153]"(null)":[137]5330
5310 [153]" (null)":[137]5330
5320 [153]"  (null)"
5330 [130]I
5340 [142]
5350 [143] DISPLAY DEPTH 4
5360 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
5370 PRINT"";:Z$=Z$+""
5380 FORI=1TO2:PRINTZ$;:IFC=0GOTO5420
5390 ONIGOTO5400,5410
5400 PRINT"[205]";:GOTO5460
5410 PRINT"[205]";:GOTO5460
5420 ONIGOTO5430,5440
5430 PRINT"";:GOTO5460
5440 IFEL=1THENPRINT"[164][164]";:GOTO5460
5450 PRINT"[164]";
5460 IFE=0ORI=1THENPRINT"";:GOTO5480
5470 PRINT"[164][164][164][164]";
5480 IFD=0GOTO5520
5490 ONIGOTO5500,5510
5500 PRINT"[206]":GOTO5560
5510 PRINT"[206]":GOTO5560
5520 ONIGOTO5530,5540
5530 PRINT:GOTO5560
5540 IFER=1THENPRINT"[164][164]":GOTO5560
5550 PRINT"[164]"
5560 NEXT
5570 FORI=1TO5:PRINTZ$;:IFC=1THENPRINT"[167]";:GOTO5620
5580 IFEL=1THENPRINT"[166][166][146]";:GOTO5620
5590 IFI=1THENPRINT"[164][166][146]";:GOTO5620
5600 IFI>4THENPRINT"[163][166][146]";:GOTO5620
5610 PRINT" [166][146]";
5620 IFE=0THENPRINT"";:GOTO5640
5630 PRINT"[166][166][166][166][146]";
5640 IFD=1THENPRINT"[165]":GOTO5690
5650 IFER=1THENPRINT"[166][166]":GOTO5690
5660 IFI=1THENPRINT"[166][146][164]":GOTO5690
5670 IFI>4THENPRINT"[166] ":GOTO5690
5680 PRINT"[166]"
5690 NEXT
5700 FORI=1TO2:PRINTZ$;:IFC=1GOTO5750
5710 ONIGOTO5720,5740
5720 IFEL=0THENPRINT"[163][206]";:GOTO5780
5730 PRINT" [206]";:GOTO5780
5740 PRINT"[206] ";:GOTO5790
5750 ONIGOTO5760,5770
5760 PRINT"[169]";:GOTO5780
5770 PRINT"[169] ";:GOTO5790
5780 IFE=0THENPRINT"[163][163][163][163]";:GOTO5800
5790 PRINT"    ";
5800 IFD=1GOTO5850
5810 ONIGOTO5820,5840
5820 IFER=0THENPRINT"[205][163]":GOTO5880
5830 PRINT"[205] ":GOTO5880
5840 PRINT" [205]":GOTO5880
5850 ONIGOTO5860,5870
5860 PRINT"[223]":GOTO5880
5870 PRINT" [223]":GOTO5880
5880 NEXTI
5890 RETURN
5900 REM DISPLAY DEPTH 5
5910 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
5920 [153]"";:Z$[178]Z$[170]""
5930 [153]Z$;:[139]C[178]0[137]5950
5940 [153]"(null)";:[137]5960
5950 [153]"TO";
5960 [139]E[178]0[167][153]"";:[137]5980
5970 [153]"TOTO";
5980 [139]D[178]0[137]6000
5990 [153]"(null)":[137]6010
6000 [153]"TO"
6010 [129]I[178]1[164]3:[153]Z$;:[139]C[178]1[137]6030
6020 [153]"SPC(";:[137]6040
6030 [153]"THEN";
6040 [139]E[178]0[167][153]"";:[137]6060
6050 [153]"SPC(SPC(";
6060 [139]D[178]0[167][153]"SPC(":[137]6080
6070 [153]"FN"
6080 [130]
6090 [153]Z$;:[139]C[178]1[137]6110
6100 [153]"(null)";:[137]6120
6110 [153]"STEP";
6120 [139]E[178]1[167][153]"  ";:[137]6140
6130 [153]"TAB(TAB(";
6140 [139]D[178]1[137]6160
6150 [153]"(null)":[137]6170
6160 [153]"(null)"
6170 [142]
6180 [141]6300
6190 [153]"ON*  WAY OUT  *
6200 GOSUB2700:PRINTCHR$(142);:IFM1THENPRINT"":GOTO6250
6210 PRINT"[147][200][197][210][197][160][201][211][160][212][200][197][160][205][193][218][197]":GOSUB2700
6220 GOSUB1730
6230 X=TI+(H+V)*60
6240 IFX>TIGOTO6240
6250 PRINTCHR$(14)"[193][206][207][212][200][197][210][160][199][193][205][197]?";
6260 GETZ$:IFZ$<>""GOTO6260
6270 GETZ$:IFZ$=""GOTO6270
6280 PRINT"[147]":IFZ$="Y"GOTO220
6290 END
6300 REM PRINT TEXT BORDER
6310 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
6320 [153]"LOAD"
6322 [153]"   LLOYDS BANK IMPROVED 16K LABYRINTH"
6324 [153]"   FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
6330 [153]"*************
6335 PRINT"*           *
6340 [153]"*           *
6350 PRINT"*           *
6380 [153]"*************ONON
6390 RETURN
9000 POKEG+32,S:POKEG+33,B
10000 GETA$:ON-(A$="")GOTO10000:ONVAL(A$)GOTO10100,10200:RETURN
10100 S=S+1:IFS=15THENS=1
10110 GOTO9000
10200 B=B+1:IFB=15THENB=1
10210 GOTO9000